home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
util
/
app
/
convert.lha
/
Convert107
/
Install Convert
< prev
next >
Wrap
Text File
|
1995-09-07
|
5KB
|
191 lines
; Install script for Convert (Workbench 2.1 or higher)
(set @default-dest "SYS:Tools")
(set old_level @user-level)
(set reqtoolslib "reqtools.library")
(set convertapp "Convert")
;=============================================================================
; English strings
(set default_lang 1)
(set #bad-kick
(cat "You must be using Kickstart 2.04 to install using this script!"
))
(set #reqtools-copy "Copying reqtools.library to Libs:...")
(set #reqtools-help "Copies the reqtools.library to the Libs: directory")
(set #convert-copy "Copying Convert...")
(set #convert-help "Copies Convert to your disk for usage.")
(set #select-convert "Select the location to install Convert")
(set #select-help "Choose a destination directory to contain the Convert application")
(set #which-language
(cat "\nWhich languages should be installed?"
))
(set #which-language-help
(cat "\nThe Amiga can be operated in many different "
"languages. If you want convert to use the same "
"language as the Amiga Workbench "
"then a catalog file must be copied to your"
" system disk for each language supported.\n\n"
"To reduce the amount of space consumed by the"
" language files, you can select to have only the"
" files of specific languages copied.\n\n"
"Simply check the boxes of the languages you wish"
" to have available on your system.\n\n"
@askoptions-help
))
(set #install-msg
(cat "\n\nConvert installation script.\n"
"This script installs Convert and the ReqTools.library on your Amiga.\n\n"
"Read the Convert.guide file for more information.\n"
"Convert ⌐ 1993-1995 Bert Wynants\n"
"ReqTools ⌐ 1991-1995 Nico Franτois\n"
"All rights reserved."
))
;=============================================================================
; Dutch strings
(if (= @language "nederlands")
(
(set default_lang 4)
(set #bad-kick
(cat "U moet Kickstart 2.04 gebruiken om met dit installatie script te installeren!"
))
(set #reqtools-copy "Kopieer reqtools.library naar Libs:...")
(set #reqtools-help "Kopieert de reqtools.library naar de Libs: lade")
(set #convert-copy "Kopieer Convert...")
(set #convert-help "Kopieert convert naar uw disk om te gebruiken")
(set #select-convert "Selecteer de lade om Convert te installeren")
(set #select-help "Kies de lade waarin de convert applicatie moet komen")
(set #which-language
(cat "\nWelke talen moeten ge∩nstalleerd worden?"
))
(set #which-language-help
(cat "\nDe Amiga kan werken in verschillende talen."
" Als u wilt dat Convert in dezelfde taal werkt als uw Workbbench"
" dan moet er voor elke taal een bestand naar"
" uw systeem disk gekopieerd worden.\n\n"
"Om de grootte van het geheugen die de taal bestanden"
" innemen te verkleinen, kunt u een keuze maken uit"
" de talen, die vervolgens naar uw systeem disk worden"
" gekopieerd .\n\nU hoeft alleen die talen die u op"
" uw systeem wilt hebben aan te klikken.\n\n"
@askoptions-help
))
(set #install-msg
(cat "\n\nConvert installatie script.\n"
"Dit script installeert Convert en de ReqTools library op uw Amiga.\n\n"
"Lees het Convert.guide bestand voor meer informatie\n"
"Convert ⌐ 1993-1995 Bert Wynants\n"
"ReqTools ⌐ 1991-1995 Nico Franτois\n"
"All rights reserved."
))
))
;=============================================================================
; procedure to call on exit...
(procedure TERMINATE
)
;=============================================================================
; termination stuff
(onerror (TERMINATE))
;=============================================================================
; make sure we are running under a 2.04 ROM
(if (< (/ (getversion) 65536) 37)
(
(abort #bad-kick)
))
;=============================================================================
(message #install-msg)
; copy reqtools, including version checking
(copylib
(prompt "\n" #reqtools-copy)
(help #reqtools-help)
(source reqtoolslib)
(dest "Libs:")
(confirm)
)
(complete 20)
(set thedest
(askdir (prompt #select-convert)
(default @default-dest)
(help #select-help)
)
)
; copy convert, including version checking
(copylib
(prompt "\n" #convert-copy)
(help #convert-help)
(source convertapp)
(dest thedest)
(infos)
(confirm)
)
(complete 50)
(if (exists "SYS:Locale")
(
(if (exists "LOCALE:")
(
(user 2)
(set lang (askoptions (prompt #which-language)
(help #which-language-help)
(choices "English" "Franτais" "Nederlands")
(default default_lang)
)
)
(user old_level)
(set n 0)
(while (set language (select n "english" "franτais" "nederlands" ""))
(
(if (IN lang n)
(
(if (<> 0 n)
(
(makedir (cat "LOCALE:Catalogs/" language))
(copyfiles (source (cat "Catalogs/" language))
(dest (cat "LOCALE:Catalogs/" language))
(all)
)
))
))
(set n (+ n 1))
))
))
))
(complete 100)